home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / program / eflibpt4.zip / DEMO / SCREEN / STATBAR.PAS < prev    next >
Pascal/Delphi Source File  |  1996-08-16  |  550b  |  19 lines
  1. { Borland Pascal Extended Function Library - EFLIB (C) Johan Larsson, 1996
  2.   Demonstration; simple status bars
  3.  
  4.   EFLIB IS PROTECTED BY THE COPYRIGHT LAW AND MAY NOT BE COPIED, SOLD OR
  5.   MANIPULATED. FOR MORE INFORMATION, SEE PROGRAM MANUAL! THIS DEMONSTRAT-
  6.   ION PROGRAM MAY FREELY BE USED AND DISTRIBUTED.                          }
  7.  
  8.  
  9. uses EFLIBDEF, EFLIBINI, EFLIBSCR;
  10.  
  11.  
  12. var Message : StatusBarObjectType;
  13.  
  14. begin
  15.      with Message do begin
  16.           Initialize ('Don''t forget the peanuts!');
  17.           Intercept;
  18.      end;
  19. end.